home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.42 / includes3v1 / includes3v1.lha / Resources / MathResource.i < prev    next >
Text File  |  1994-12-04  |  1KB  |  46 lines
  1. {
  2.         MathResource.i for PCQ Pascal
  3. }
  4.  
  5. {$I   "Include:Exec/Nodes.i"}
  6.  
  7. {
  8. *       The 'Init' entries are only used if the corresponding
  9. *       bit is set in the Flags field.
  10. *
  11. *       So if you are just a 68881, you do not need the Init stuff
  12. *       just make sure you have cleared the Flags field.
  13. *
  14. *       This should allow us to add Extended Precision later.
  15. *
  16. *       For Init users, if you need to be called whenever a task
  17. *       opens this library for use, you need to change the appropriate
  18. *       entries in MathIEEELibrary.
  19. }
  20.  
  21. Type
  22.  
  23.     MathIEEEResource = record
  24.         MathIEEEResource_Node   : Node;
  25.         MathIEEEResource_Flags  : Short;
  26.         MathIEEEResource_BaseAddr : Address;    { ptr to 881 if exists }
  27.         MathIEEEResource_DblBasInit : Address;
  28.         MathIEEEResource_DblTransInit : Address;
  29.         MathIEEEResource_SglBasInit : Address;
  30.         MathIEEEResource_SglTransInit : Address;
  31.         MathIEEEResource_ExtBasInit : Address;
  32.         MathIEEEResource_ExtTransInit : Address;
  33.     end;
  34.     MathIEEEResourcePtr = ^MathIEEEResource;
  35.  
  36. Const
  37.  
  38. { definations for MathIEEEResource_FLAGS }
  39.  
  40.     MATHIEEERESOURCEF_DBLBAS    = 1;
  41.     MATHIEEERESOURCEF_DBLTRANS  = 2;
  42.     MATHIEEERESOURCEF_SGLBAS    = 4;
  43.     MATHIEEERESOURCEF_SGLTRANS  = 8;
  44.     MATHIEEERESOURCEF_EXTBAS    = 16;
  45.     MATHIEEERESOURCEF_EXTTRANS  = 32;
  46.